Multi-level Hash

Category:Perl

#!/usr/bin/perl -w
use strict;

# add your ~/lib dir to @INC
use lib '/picb/home5/augix/Programming/Perl/Modules/lib/perl5/site_perl/5.8.5/';
use Hash::AsObject;
my $hash = Hash::AsObject->new;

$hash->{foo} = 42;
print $hash->foo, "\n";

$hash->bar( 137 );
print $hash->bar, "\n";

$hash->{baz}{quux} = 149;
print $hash->baz->quux, "\n";